home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 167
/
Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
ende - 069 -
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
431b
|
10 lines
10 poke53280,.:poke53281,.:print"[147]";:
25 print"[145][158] [154] [156] [152] [129] [149] [145][153][157][157][157][157][157][157][157][157] ";
26 s=54272:poke54296,15:fori=1to4step.5 :pokes+4,33:poke54276,11:poke54278,242
27 poke54273,0+abs(2-i) ::next:pokes+0,21:pokes+4,128
30 p=p+1:printtab((p)+1)"[146][157][157][157][157][157] ende[158] [154] [156] ";
31 pokes+4,16::print"[157][157][157][157][157][157][157][157][157][157][157][157][157]";
35 ifp>77thenpoke54296,10:print"[147] e n d e ! ";
40 ifp>91thenpoke54296,0:end
45 print"[157][157][157][157][157][157][157][157][157][145]"; :goto25